home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-174 gamma universe 103 / 3.ima / ARABIC.INF < prev    next >
Encoding:
Text File  |  1993-06-17  |  1.9 KB  |  66 lines
  1. DefineVariables
  2.     Text [LanguageName]          := Arabic ;; match UNIVERSE.INI
  3.     Text [LanguageFileName]      := ARABIC.LNG
  4.     Text [DictionaryName]        := ARABIC.DCT
  5.     Text [UserDictionaryName]    := ARABIC.USR ;; same as dictionary name
  6.     Text [UnicodeConversionName] := ARABIC.SPL
  7.     Directory [UniverseDirectory]
  8. EndDefineVariables
  9.  
  10. Dialog
  11.     This disk installs the
  12.     [LanguageName] Spell Checking Dictionary
  13.     and related files.
  14. EndDialog
  15.  
  16. [UniverseDirectory] := FullPathTo UNIVERSE.EXE
  17. [Number1] := LengthOf [UniverseDirectory]
  18. [Number2] := [Number1] - 13
  19.  
  20. [InstallationDirectory] := SubstringOf [UniverseDirectory] from 1 to [Number2]
  21.  
  22. :CheckIfUniverseExists
  23.  
  24. If FileExists [UniverseDirectory]
  25. Else
  26.     Dialog [InstallationDirectory] UseHeader "Enter Drive and Directory of UNIVERSE Program:"
  27.  
  28.     (NOTE: UniVerse must be installed before installing a spell checker.)
  29.      Press Esc to exit and install UniVerse if necessary.
  30.  
  31.     EndDialog
  32.  
  33.     GoTo CheckIfUniverseExists
  34. EndIf
  35.  
  36. ExamineTextFile [WindowsDirectory]\UNIVERSE.INI
  37.  
  38. [String1] := LineWith ([LanguageName] Spell Checking,,)
  39.  
  40. If [String1] = ""
  41.     Dialog
  42.     [LanguageName] has not been installed as a UniVerse language!
  43.  
  44.     Re-install UniVerse and select "[LanguageName]"
  45.     as one of the languages you wish to use, then
  46.     install the spell checker using this disk.
  47.     EndDialog
  48.     SoLong
  49. EndIf
  50.  
  51. QueAllFiles to [InstallationDirectory]
  52. GetQuedFiles
  53.  
  54. ModifyTextFile [WindowsDirectory]\UNIVERSE.INI
  55. InSection [[LanguageName] Spell Checking]
  56.     AddOrChangeLineWith (Main Dictionary,,) as "Main Dictionary=[DictionaryName]" at End
  57.     AddOrChangeLineWith (User Dictionary,,) as "User Dictionary=[UserDictionaryName]" at End
  58.     AddOrChangeLineWith (Unicode Conversion,,) as "Unicode Conversion=[UnicodeConversionName]" at End
  59. EndModifyTextFile
  60.  
  61. Dialog
  62.     [LanguageName] Spell Checker installed.
  63. EndDialog
  64.  
  65. EndScript
  66.